Public Class AlbedoInput

    Private Sub AlbedoInput_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.EFlex1.Styles.Alternate.BackColor = Color.FromArgb(216, 228, 248)
        For i As Integer = 0 To 7
            For j As Integer = 0 To 3
                Me.EFlex1.SetData(i + 1, j + 1, Met.albedo(i)(j))
            Next
        Next
        Me.EFlex1.AllowDragging = C1.Win.C1FlexGrid.AllowDraggingEnum.None
        Me.EFlex1.AllowResizing = C1.Win.C1FlexGrid.AllowDraggingEnum.None
        Me.EFlex1.AllowSorting = C1.Win.C1FlexGrid.AllowDraggingEnum.None
    End Sub
End Class
